subroutine proginfo
! Saves and show information about the program
    implicit none
    character(len=75) :: progname
    character(len=4) :: progver
    character(len=15) :: copyrightinfo
    character(len=20) :: copyrightowner

    progname = "Schrodinger Equation's Solver for 1D System using Split Operator"
    progver = "0.7"
    copyrightinfo = "(C) 2011-2013"
    copyrightowner = "Estefferson Torres"

    write(*,*) progname
    write(*,*) "version ", progver, copyrightinfo, copyrightowner
    write(*,*) " "
!stop
end subroutine proginfo
